
((compose/n) 2)				; => 2

((compose/n-left) 2)			; => 2

(let ((a (lambda (o) (+ o 4)))
      (b (lambda (o) (* o 3))))
  (cons ((compose a b) 2)
	((compose-left a b) 2)))	; => (10 . 18)

((compose-n 
  (lambda (o) (+ o 2))) "a")		; => ERROR

(map (lambda (f) 
       ((f abs - (lambda (n) (+ n 5))) -7))
     (list compose-n compose-n-left))	; => (2 -2)
